home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / cave of reaper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  31KB  |  831 lines
  1. 10 dimvt$(25),ht$(40)
  2. 12 vt$(1)="":ht$(1)=""
  3. 14 forx=2to25:vt$(x)=vt$(x-1)+"":ht$(x)=ht$(x-1)+"":nextx
  4. 15 forx=26to40:ht$(x)=ht$(x-1)+"":next
  5. 16 :
  6. 20 gosub3810:goto170
  7. 30 printvt$(24)ht$(10)"<--- [208]ress a key --->";:poke198,0:wait198,1:geta$
  8. 31 return
  9. 40 v=peek(214):printvt$(1)"[211][195][207][210][197]:"se"[157] [207][213][212][160][207][198] 100 [208][207][211][211][201][194][204][197]":printvt$(v);:return
  10. 50 h=(40-len(a$))/2:printht$(h)""a$:print"[146]":return
  11. 60 remthisprogramis
  12. 70 remdedicatedtostevejobs
  13. 80 rem
  14. 90 rem***********************
  15. 100 rem*caveofthereaper*
  16. 110 rem*by:*
  17. 120 rem*steveshelton*
  18. 130 rem***********************
  19. 140 rem
  20. 150 remgame(c)may-june,1985
  21. 160 rem
  22. 170 rb=0:rd=15:fl=1:kf=1:f1=0:q$=chr$(34)
  23. 180 goto430
  24. 190 gosub3670:print">";:gosub 5000:mv=mv+1:cm=0
  25. 195 ifleft$(c$,3)="use"thencm=2
  26. 200 ifleft$(c$,1)="l"orleft$(c$,4)="look"thencm=7
  27. 210 ifleft$(c$,1)="s"thencm=3
  28. 220 ifleft$(c$,1)="n"thencm=4
  29. 230 ifleft$(c$,1)="e"thencm=5
  30. 240 ifleft$(c$,1)="w"thencm=6
  31. 250 ifleft$(c$,3)="get"thencm=9
  32. 260 ifleft$(c$,4)="quit"thengosub4820
  33. 270 ifleft$(c$,9)="drop dead"thenprint"[207]kay.":goto3660
  34. 280 ifleft$(c$,4)="bull"thenprint"[205]oo!":goto190
  35. 290 ifcm<>2thengoto390
  36. 300 ud=0:ifleft$(c$,8)="use pick"thenud=1
  37. 310 ag=0:ifleft$(c$,14)="use pogo stick"orleft$(c$,13)="use pogostick"thenag=1
  38. 311 ifleft$(c$,14)="use pogo-stick"thenag=1
  39. 312 ifag=1thenud=2:ifrm<>7andps>0thenprint"[215][200][197][197][197][197]!!!!"
  40. 320 ag=0:ifleft$(c$,14)="use flashlight"orleft$(c$,15)="use flash light"thenag=1
  41. 321 ifleft$(c$,15)="use flash-light"thenag=1
  42. 322 ifag=1thenud=6:gosub3780
  43. 330 ifleft$(c$,10)="use shield"thenud=3
  44. 340 ifleft$(c$,13)="use medallion"thenud=4
  45. 350 ifleft$(c$,9)="use knife"orleft$(c$,10)="use dagger"thenud=5
  46. 360 ag=0:ifleft$(c$,14)="use stalagtite"orleft$(c$,8)="use rock"thenag=1
  47. 361 ifleft$(c$,23)="use piece of stalagtite"thenag=1
  48. 362 ifag=1thenud=7
  49. 370 ifud=0thenprint"[215]hat?":goto190
  50. 371 ifrb=90thenprint"succumbed to the poison.":goto3800
  51. 380 goto3470:rem
  52. 390 ifleft$(c$,1)="i"thengoto3570
  53. 400 ifc$=""thengoto190
  54. 410 ifcm=0thenprint"[211]ay what?!?!?!?":goto190
  55. 420 return
  56. 430 print"[147][144]"spc(11)"[195]ave of the [210]eaper":poke53280,6:poke53281,5
  57. 431 print""spc(12)"by [211]teve [211]helton"
  58. 432 print""spc(4)"[195]-64 translation by [193]lan [199]ardner"
  59. 433 print"      [204][207][193][196][211][212][193][210][160]is not public domain."
  60. 434 print"   [208]lease respect the author's rights."
  61. 439 print" [196]o you need instructions ([217]/[206])?"
  62. 440 poke198,0:wait198,1:geta$
  63. 445 ifa$="[217]"ora$="y"thengosub3830:goto465
  64. 450 ifa$="[206]"ora$="n"thenprint"[147]":gosub3760:goto465
  65. 460 goto440
  66. 465 poke770,131:poke771,164
  67. 466 poke88,0:poke89,192:poke90,0:poke91,192:poke781,33:poke782,0:sys41964
  68. 467 poke88,254:poke89,255:poke90,254:poke91,255:poke781,33:poke782,0:sys41964
  69. 468 poke59639,6:poke1,53
  70. 470 rem*location#1
  71. 480 rm=1:a$="---> [210][207][207][205] # 1 <---":gosub50
  72. 482 print"  [201]t's almost too dark to see.":print"[193] certain amount of light is coming"
  73. 490 print"through the blocked entrance, but":
  74. 492 print"shadows dominate the scene. [212]here are"
  75. 493 print"exits in every direction but west, "
  76. 500 print"where the entrance lies."
  77. 510 gosub190:ifcm=2andud<>6thenprint"[206]othing happens."
  78. 520 ifcm=9thenprint"[212]his room is empty."
  79. 530 ifcm=7then470
  80. 540 ifcm=3thenlc=13:goto1980
  81. 550 ifcm=4thenlc=11:goto1750
  82. 560 ifcm=5thenlc=2:goto600
  83. 570 ifcm=7thengoto470
  84. 580 ifcm=6thenprint"[212]he entrance is still caved in!"
  85. 590 goto510
  86. 600 rem*location#2
  87. 610 rm=2:a$="---> [210][207][207][205] # 2 <---":gosub50:
  88. 611 print"  [212]he meager light from the cave mouth"
  89. 612 print"makes eerie shadows on the stalagtites,"
  90. 613 print"which seem ready to fall at any moment."
  91. 614 print"  [212]his room appears to be empty.  [212]here"
  92. 620 print"are side passages straight ahead and to"
  93. 621 print"the south.  [212]he cave entrance is to the"
  94. 622 print"west. [212]he light dwindles to the east."
  95. 630 gosub190:ifcm=2andud<>6thenprint"[206]o effect."
  96. 640 ifcm=3thenlc=6:goto3060
  97. 650 ifcm=4thenprint"[217]ou cannot go in that direction."
  98. 660 ifcm=5thenlc=3:goto710
  99. 670 ifcm=6thenlc=1:goto470
  100. 680 ifcm=7thengoto600
  101. 690 ifcm=9thenprint"[212]his room is empty."
  102. 700 goto630
  103. 710 rem*location#3
  104. 720 rm=3:print:a$="---> [210][207][207][205] # 3 <---":gosub50
  105. 722 iff1=0thenprint"[201]t's too dark to see, but you hear a "
  106. 723 iff1=0thenprint"soft rustling sound.":goto740
  107. 730 print"   [212]his room contains rattlesnakes"
  108. 731 print"moving sluggishly because of the cool"
  109. 732 print"temperature of the caverns."
  110. 733 print"  [212]here are rooms to the east and west.":print
  111. 740 gosub190:ifcm=2andud=6then710
  112. 750 ifcm=2thenprint"[206]o effect."
  113. 760 ifcm=3thenprint"[212]here is no door there."
  114. 770 ifcm=5thenlc=4:goto840
  115. 780 ifcm=4thenprint"[217]ou can't go that direction."
  116. 790 ifcm=6thenlc=2:goto600
  117. 800 ifcm=7thengoto710
  118. 810 ifcm<>9orrb<=0then820
  119. 811 print"[217]ou really [196][207] learn slowly - another "
  120. 812 print"snake has bitten you. [217]ou have no"
  121. 813 print"chance to escape the caverns before"
  122. 814 print"the poison becomes fatal, so [201]'ll save"
  123. 815 print"time and just say that...":goto3660
  124. 820 ifcm=9thenprint"[193] rattlesnake is not a good object to"
  125. 821 ifcm=9thenprint"pick up. [217]ou learned too slowly - one"
  126. 822 ifcm=9thenprint"bites you. [217]ou'd better get out of"
  127. 823 ifcm=9thenprint"these caverns very quickly - that":print"poison acts fast!":rb=1
  128. 830 goto740
  129. 840 rem*location#4
  130. 850 rm=4:a$="---> [210][207][207][205] # 4 <---":gosub50
  131. 851 iff1<1thenprint"   [201]t's too dark to see.":goto900
  132. 860 print"  [212]his room is quite damp, and there is"
  133. 861 print"a loud sound like running water forever"
  134. 862 print" echoing in the dark chamber."
  135. 870 ifps<1thenprint"  [198]or some reason, there is a pogo"
  136. 872 ifps<1thenprint"stick on the floor, but what it's doing"
  137. 873 ifps<1thenprint"here, [201] couldn't tell you."
  138. 880 ifps>0thenprint"  [212]his room is empty."
  139. 890 print"  [212]here are exits to the east and west.":print
  140. 900 gosub190:ifcm=2andud=6thengoto840
  141. 910 ifcm=2thenprint"[206]o effect."
  142. 920 ifcm=9andps<1thenprint"[215]ell, you've got it. [201] don't know why"
  143. 921 ifcm=9andps<1thenprint"you want it, though!":ps=1:goto900
  144. 930 ifcm=9thenprint"[206]othing here."
  145. 940 ifcm=3orcm=4thenprint"[217]ou can't go that way!"
  146. 950 ifcm=4thenprint"[217]ou can't go that way!"
  147. 960 ifcm=6thenlc=3:goto710
  148. 970 ifcm=5thenlc=5:goto1000
  149. 980 ifcm=7then840
  150. 990 goto900
  151. 1000 rem*location#5
  152. 1010 rm=5:a$="---> [210][207][207][205] # 5 <---":gosub50
  153. 1011 iff1<1thenprint"[201]t's too dark to see, but from the"
  154. 1012 iff1<1thenprint"sound of it, there must be a pretty"
  155. 1013 iff1<1thenprint"strong river running through here.":goto1030
  156. 1020 print"   [212]his room would make a good painting."
  157. 1021 print"[145][212]o the east a picturesque waterfall"
  158. 1022 print"goes nearly 300 feet into a roaring"
  159. 1023 print"river.":print"   [212]here is an exit to the west."
  160. 1030 gosub190:ifcm=4orcm=3thenprint"[217]ou can't go that way."
  161. 1040 ifcm=5thenprint"[217]ou fall into the river and drown,"
  162. 1041 ifcm=5thenprint"which means that...":goto3660
  163. 1050 ifcm=6thenlc=4:goto840
  164. 1060 ifcm=2andf1=1andud=6then1000
  165. 1070 ifcm=2thenprint"[206]othing happens."
  166. 1080 ifcm=9thenprint"[206]othing here."
  167. 1090 ifcm=7thengoto1000
  168. 1100 goto1030
  169. 1110 rm=7:a$="---> [210][207][207][205] # 7 <---":gosub50
  170. 1111 iff1<1thenprint"  [201]t's too dark to see.  [200]ey, is that"
  171. 1112 iff1<1thenprint"a light off to the east?!?!?!?":goto1140
  172. 1120 print"  [212]his room is long, with two gorges"
  173. 1121 print"between you and the eastern exit.  [212]he"
  174. 1122 print"first is about fifty feet wide, but"
  175. 1123 print"the second is only ten feet wide."
  176. 1124 print"[212]here is  a light to the east --"
  177. 1125 print"another way out"
  178. 1130 print"maybe?  [212]here is an exit to the west."
  179. 1140 gosub190:ifcm=2andud<>2andud<>6thenprint"[206]othing happens."
  180. 1150 ifcm=2andud=6then1110
  181. 1160 ifcm<>2orud<>2then1170
  182. 1161 print"[217]ou bounce hard, and get about half-"
  183. 1162 print"way across the canyon, but don't quite"
  184. 1164 print"make it. [217]ou don't even hit bottom for"
  185. 1165 print"three days.":goto3660
  186. 1170 ifcm=4orcm=3thenprint"[217]ou can't go that w